<!-- #INCLUDE Virtual="/lib.asp" -->
<!-- #INCLUDE Virtual="/lib_gen.asp" -->

<%
dim txtTitle, txtInhoud, txtImage, txtImageAttr, txtBg
dim page, bgnr

page = request("thispage")

sql = "select * from vwcontent where id=" & page
set rs = tmpConnection.execute(sql)

txtTitle = rs("titel")
txtInhoud = rs("inhoud")
bgnr = rs("background")

sql = "select image from images where id=" & bgnr
rs = tmpConnection.execute(sql)
txtBg = "../../images/" & rs("image")

src = request("src")
txtImage = "../../images/" & src

width = request("width")
if width <> "" then txtImageAttr = txtImageAttr & "width=""" & width & """ "

height = request("height")
if height <> "" then txtImageAttr = txtImageAttr & "height=""" & height & """ "

align = request("align")
if align <> "" then txtImageAttr = txtImageAttr & "align=""" & align & """ "

body = request("body")
if body <> "" then txtInhoud = body

closeDatabase

call generatePageEx(request("preview"), request.querystring("nextpage"), txtTitle, txtImage, txtImageAttr, txtInhoud, txtBg, 18)
%>